home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / AmiTradeCenter.lha / AmiTradeCenter / Install < prev    next >
Text File  |  2000-05-27  |  41KB  |  1,281 lines
  1. ; $VER: Installer Script for AmiTradeCenter V1.1 (21.05.00) by <Ingo@night.de>
  2. ; I tell you: writing installer scripts is a real pain!
  3. ; Especially if you don`t know what you are doing ;^)
  4. ;
  5. ; V1.1 - changed cataloghandling to use pattern instead of filenames
  6. ;
  7. ; V1.0 - added swedish language to installscript and support for swedish catalogs
  8. ;        smörebröd ;)
  9. ;        You can now read english or german guide - this was changed because
  10. ;        guys from Austria or Switzerland probably want to read the german guide.
  11. ;        I`m not sure if their env:language point to 'deutsch'.
  12. ;
  13. ; V0.9 - added french language to installscript and support for french catalogs
  14. ;
  15. ; V0.8 - redesigned the script so that all things that must be selected
  16. ;        (catalogs and icons for the moment) can be selected before any
  17. ;        file is copied
  18. ;      - installpictures are no longer copied to the users disk
  19. ;
  20. ; V0.7 - catalogs can now be selected by user
  21. ;      - added handling of New and Glowicons
  22. ;
  23. ; V0.6 - small icons added
  24. ;      - changed pattern for installarchives so that .profiles and .config
  25. ;        are no longer overwritten if ultra decide to release an installarchive
  26. ;      - Moved Install-GUI to the bottom of the screen
  27. ;
  28. ; V0.5 - made some changes to use one script for install and update
  29. ;
  30. ; V0.4 - added NListTree.mcc stuff
  31. ;
  32. ; V0.3 - open window on WB, where atc was installed, automatically
  33. ;
  34. ; V0.2 - changed some pattern
  35. ;
  36. ; V0.1 - first usable script
  37.  
  38. (set #language (getenv "Language"))
  39.  
  40. (if (= #language "deutsch")
  41.   (
  42.     (set #minInst43 "Du brauchst Installer Version 43 oder höher\num AmiTradeCenter zu Installieren.\nLebst Du hinterm Mond? ;)")
  43.     (set #askdir "Wo soll ATC installiert werden?\nEin neues Verzeichnis `AmiTradeCenter` wird ggf. dort hingezaubert (zing).")
  44.     (set #askdir1 "Wo befindet sich ATC auf deinem System?\nBitte den kompletten Pfad,\ninklusive /AmiTradeCenter, anwählen!")
  45.     (set #asl_help "Bitte den Pfad auswählen wo sich ATC befindet.")
  46.     (set #makedir_help "Erzeuge neues Verzeichnis..")
  47.     (set #copyfiles "Kopiere Dateien..")
  48.     (set #copy_help "Dateien werden jetzt Kopiert..")
  49.     (set #yourchoice "\nWelches Icon darf`s denn sein?.\n\n")
  50.     (set #your_help "Dieses Icon wird als Standard-Icon in den Pfad geschmiert.")
  51.     (set #showguide (cat "\n\nWelche Anleitung willst Du jetzt Lesen?\n"))
  52.     (set #guide_help "Falls Du nicht lesen kannst, vergiß diesen Punkt ;-)")
  53.     (set #showguide-1 (cat "Na klar.."))
  54.     (set #showguide-2 (cat "Och nö.."))
  55.     (set #guideD "docs/AmiTradeCenter_D.guide")
  56.     (set #guideE "docs/AmiTradeCenter_E.guide")
  57.     (set #none "Am liebsten gar keine")
  58.     (set #installchoice "\nWie willst Du ATC auf deine Platte Brennen?\n!")
  59.     (set #inst_help "\nWie willst Du ATC auf deine Platte Brennen?\n")
  60.     (set #detect "\nAmiTradeCenter ist auf diesem\nSystem bereits Installiert.\n\n")
  61.     (set #NList_new "Zu installierende Version: 17.53\n")
  62.     (set #NList_help "MUI-Class NListTree.mcc nach Mui:libs/mui/ Kopieren")
  63.     (set #NListCopy "Soll die MUI-Class NListTree.mcc nach Mui:libs/mui/NListTree.mcc kopiert werden?\n\n")
  64.     (set #NListCopy-1 (cat "Logo"))
  65.     (set #NListCopy-2 (cat "Alles, nur das nicht!"))
  66.     (set #cat_help "Welche Sprache möchtest Du benutzen?")
  67.     (set #cat "catalogs")
  68.     (set #catDE "catalogs/deutsch")
  69.     (set #catFR "catalogs/français")
  70.     (set #catSW "catalogs/svenska")
  71.     (set #catEN "catalogs/english")
  72.     (set #whichicon "Welche Piktogramme möchtest Du installieren?")
  73.     (set #glow1 "Glowicons")
  74.     (set #glow2 "Newicons")
  75.     (set #cat1 "deutsch")
  76.     (set #cat2 "französisch")
  77.     (set #cat3 "schwedisch")
  78.     (set #cat4 "englisch")
  79.     (set #icon1 "Großes Piktogramm 1")
  80.     (set #icon2 "Großes Piktogramm 2")
  81.     (set #icon3 "Großes Piktogramm 3")
  82.     (set #icon4 "Großes Piktogramm 4")
  83.     (set #icon5 "Kleines Piktogramm 1")
  84.     (set #icon6 "Kleines Piktogramm 2")
  85.     (set #icon7 "Kleines Piktogramm 3")
  86.     (set #icon8 "Kleines Piktogramm 4")
  87.     (set #NList_version (getversion "mui:libs/mui/NListTree.mcc"))
  88.     (set #NList_ver (/ #NList_version 65536))
  89.     (set #NList_rev (- #NList_version (* #NList_ver 65536)))
  90.     (set #NList_text (cat "\nInstallierte Version:" #NList_ver"."#NList_rev))
  91.   )
  92.   (
  93.     (if (= #language "français")
  94.       (
  95.         (set #minInst43 "Il te faut l'Installer Version 43 ou plus\npour installer AmiTradeCenter.")
  96.         (set #askdir "OÙ veux-tu installer ATC?\nUn nouveau répertoire `AmiTradeCenter` sera créé.")
  97.         (set #askdir1 "OÙ est ATC sur ton système?\nIndique-moi le chemin complet,\nincluant /AmiTradeCenter!")
  98.         (set #asl_help "Sélectionne le chemin oÙ se trouve ATC.")
  99.         (set #makedir_help "Création du nouveau répertoire..")
  100.         (set #copyfiles "Copie fichier..")
  101.         (set #copy_help "Copie les fichiers..")
  102.         (set #yourchoice "\nQuelles icônes veux-tu utiliser?.\n\n")
  103.         (set #your_help "Les icônes que tu veux utiliser pour ATC.")
  104.         (set #showguide (cat "\n\nVeux-tu jetter un coup d'oeil dans le guide d'ATC?\n"))
  105.         (set #guide_help "Au cas ou tu ne saurais pas lire, passe cette partie ;-)")
  106.         (set #showguide-1 (cat "Oui bien sur.."))
  107.         (set #showguide-2 (cat "Ha non.."))
  108.         (set #guideD "docs/AmiTradeCenter_D.guide")
  109.         (set #guideE "docs/AmiTradeCenter_E.guide")
  110.         (set #none "Hum, aucun! ;)")
  111.         (set #installchoice "\nComment veux-tu qu'ATC soit installé sur ton disque dur?\n!")
  112.         (set #inst_help "\nComment veux-tu qu'ATC soit installé sur ton disque dur?\n")
  113.         (set #detect "\nAmiTradeCenter est déjà installé\nsur ton système.\n\n")
  114.         (set #NList_new "Version a installer: 17.53\n")
  115.         (set #NList_help "Copie MUI-Class NListTree.mcc dans Mui:libs/mui/")
  116.         (set #NListCopy "Est-ce NListTree.mcc doit être copier en Mui:libs/mui/NListTree.mcc?\n\n")
  117.         (set #NListCopy-1 (cat "Bien Sur"))
  118.         (set #NListCopy-2 (cat "Tout, mais pas ça!"))
  119.         (set #cat_help "Quelle langue veux-tu utiliser?")
  120.         (set #cat "catalogs")
  121.         (set #catDE "catalogs/deutsch")
  122.         (set #catFR "catalogs/français")
  123.         (set #catSW "catalogs/svenska")
  124.         (set #catEN "catalogs/english")
  125.         (set #whichicon "Quelles icônes désires-tu installer?")
  126.         (set #glow1 "Glowicons")
  127.         (set #glow2 "Newicons")
  128.         (set #cat1 "Allemagne")
  129.         (set #cat2 "Français")
  130.         (set #cat3 "Suédois")
  131.         (set #cat4 "Anglais")
  132.         (set #icon1 "Grandes icônes 1")
  133.         (set #icon2 "Grandes icônes 2")
  134.         (set #icon3 "Grandes icônes 3")
  135.         (set #icon4 "Grandes icônes 4")
  136.         (set #icon5 "Petites icônes 1")
  137.         (set #icon6 "Petites icônes 2")
  138.         (set #icon7 "Petites icônes 3")
  139.         (set #icon8 "Petites icônes 4")
  140.         (set #NList_version (getversion "mui:libs/mui/NListTree.mcc"))
  141.         (set #NList_ver (/ #NList_version 65536))
  142.         (set #NList_rev (- #NList_version (* #NList_ver 65536)))
  143.         (set #NList_text (cat "\nVersion installée:" #NList_ver"."#NList_rev)) 
  144.       )
  145.       (
  146.         (if (= #language "svenska")
  147.           (
  148.             (set #minInst43 "Du behöver minst Installer version 43 eller högre\nför att installera AmiTradeCenter. Var kommer du ifrån? ;)")
  149.             (set #askdir "Var vill du installera ATC?\nEn ny katalog kommer att skapas... på något sätt ;)")
  150.             (set #askdir1 "Var är ATC installerat på ditt system?\nVälj hela sökvägen, inkl. /AmiTradeCenter!")
  151.             (set #asl_help "Välj sökvägen till ATCs nuvarande installationskatalog.")
  152.             (set #makedir_help "Skapar katalog...")
  153.             (set #copyfiles "Kopierar filer...")
  154.             (set #copy_help "Kopierar filer...")
  155.             (set #yourchoice "Vilken ikon vill du använda?")
  156.             (set #your_help "Du måste använda den här ikonen med ATC varje dag. Tänk efter ordentligt! ;)")
  157.             (set #showguide (cat "\n\nVilken ATC-guide vill du läsa nu?\n"))
  158.             (set #guide_help "Om du inte kan läsa, kan du ignorera detta avsnitt ;)")
  159.             (set #showguide-1 (cat "Visst.."))
  160.             (set #showguide-2 (cat "Inte egentligen.."))
  161.             (set #guideD "docs/AmiTradeCenter_D.guide")
  162.             (set #guideE "docs/AmiTradeCenter_E.guide")
  163.             (set #none "Öhrm, ingen alls, så klart! ;)")
  164.             (set #installchoice "\nHur vill du att ATC ska installeras?\n")
  165.             (set #inst_help "\nHur vill du att ATC ska installeras?\n")
  166.             (set #detect "\nAmiTradeCenter är redan installerat på detta system.\n\n")
  167.             (set #NList_new "Version att installera: 17.53\n")
  168.             (set #NList_help "Kopierar MUI-klassen NListTree.mcc till Mui:libs/mui/")
  169.             (set #NListCopy "Kopiera MUI-klassen NListTree.mcc till Mui:libs/mui/NListTree.mcc?\n\n")
  170.             (set #NListCopy-1 (cat "Japp"))
  171.             (set #NLIstCopy-2 (cat "Aldrig i livet!"))
  172.             (set #cat_help "Vilket språk vill du använda?")
  173.             (set #cat "catalogs")
  174.             (set #catDE "catalogs/deutsch")
  175.             (set #catFR "catalogs/français")
  176.             (set #catSW "catalogs/svenska")
  177.             (set #catEN "catalogs/english")
  178.             (set #whichicon "Vilken sorts ikoner vill du installera?")
  179.             (set #glow1 "Glowicons")
  180.             (set #glow2 "Newicons")
  181.             (set #cat1 "tyska")
  182.             (set #cat2 "franska")
  183.             (set #cat3 "svenska")
  184.             (set #cat4 "engelska")
  185.             (set #icon1 "Stor ikon 1")
  186.             (set #icon2 "Stor ikon 2")
  187.             (set #icon3 "Stor ikon 3")
  188.             (set #icon4 "Stor ikon 4")
  189.             (set #icon5 "Liten ikon 1")
  190.             (set #icon6 "Liten ikon 2")
  191.             (set #icon7 "Liten ikon 3")
  192.             (set #icon8 "Liten ikon 4")
  193.             (set #NList_version (getversion "mui:libs/mui/NListTree.mcc"))
  194.             (set #NList_ver (/ #NList_version 65536))
  195.             (set #NList_rev (- #NList_version (* #NList_ver 65536)))
  196.             (set #NList_text (cat "\nRedan installerad version:" #NList_ver"."#NList_rev))
  197.           )
  198.           (
  199.  
  200.            (set #minInst43 "You need at least Installer version 43 or better\nto install AmiTradeCenter. Where are u from? ;)")
  201.            (set #askdir "Where do you want to install ATC?\nA new drawer `AmiTradeCenter` will be created...somehow ;)")
  202.            (set #askdir1 "Where is ATC located on your System?\nSelect the whole path, incl. /AmiTradeCenter, please!")
  203.            (set #asl_help "Select the Path where ATC is already installed.")
  204.            (set #makedir_help "Creating directory..")
  205.            (set #copyfiles "Copy files..")
  206.            (set #copy_help "Copy files..")
  207.            (set #yourchoice "Which icon would you like to use?")
  208.            (set #your_help "You have to use this icon with ATC every day. Better think twice! ;)")
  209.            (set #showguide (cat "\n\nWhich ATC-guide do you want to study now?\n"))
  210.            (set #guide_help "If you can`t read, ignore this section ;)")
  211.            (set #showguide-1 (cat "For sure.."))
  212.            (set #showguide-2 (cat "Not really.."))
  213.            (set #guideD "docs/AmiTradeCenter_D.guide")
  214.            (set #guideE "docs/AmiTradeCenter_E.guide")
  215.            (set #none "Erm, none of course! ;)")
  216.            (set #installchoice "\nHow do you want ATC to be installed?\n")
  217.            (set #inst_help "\nHow do you want ATC to be installed?\n")
  218.            (set #detect "\nAmiTradeCenter is already installed on this System.\n\n")
  219.            (set #NList_new "Version to Install: 17.53\n")
  220.            (set #NList_help "Copy MUI-Class NListTree.mcc to Mui:libs/mui/")
  221.            (set #NListCopy "Copy MUI-Class NListTree.mcc to Mui:libs/mui/NListTree.mcc ?\n\n")
  222.            (set #NListCopy-1 (cat "Jups"))
  223.            (set #NLIstCopy-2 (cat "Hell, NO!"))
  224.            (set #cat_help "Which language do you want to use?")
  225.            (set #cat "catalogs")
  226.            (set #catDE "catalogs/deutsch")
  227.            (set #catFR "catalogs/français")
  228.            (set #catSW "catalogs/svenska")
  229.            (set #catEN "catalogs/english")
  230.            (set #whichicon "What kind of icons do you want to install?")
  231.            (set #glow1 "Glowicons")
  232.            (set #glow2 "Newicons")
  233.            (set #cat1 "german")
  234.            (set #cat2 "french")
  235.            (set #cat3 "swedish")
  236.            (set #cat4 "english")
  237.            (set #icon1 "Big Pictogram 1")
  238.            (set #icon2 "Big Pictogram 2")
  239.            (set #icon3 "Big Pictogram 3")
  240.            (set #icon4 "Big Pictogram 4")
  241.            (set #icon5 "Small Pictogram 1")
  242.            (set #icon6 "Small Pictogram 2")
  243.            (set #icon7 "Small Pictogram 3")
  244.            (set #icon8 "Small Pictogram 4")
  245.            (set #NList_version (getversion "mui:libs/mui/NListTree.mcc"))
  246.            (set #NList_ver (/ #NList_version 65536))
  247.            (set #NList_rev (- #NList_version (* #NList_ver 65536)))
  248.            (set #NList_text (cat "\nAlready installed version:" #NList_ver"."#NList_rev))
  249.           )
  250.         )
  251.       )
  252.     )
  253.   )
  254. )
  255.  
  256. (if (< (/ @installer-version 65536) 43)
  257.   (abort #minInst43)
  258. )
  259.  
  260.  
  261. (if (>= (/ @installer-version 65536) 44)
  262.  (
  263.   (effect "lower_center" "radial" $F0F0F0 $0010E0)
  264.   (set #h (querydisplay "screen" "height"))
  265.   (set #w (querydisplay "screen" "width"))
  266.   (set #d (querydisplay "screen" "depth"))
  267.   (set #c (querydisplay "screen" "colors"))
  268.  )
  269. )
  270.  
  271. (complete 0)
  272.  
  273. (set #installicons "icons1.jpg")
  274. (set #installicons-2 "icons2.jpg")
  275. (set #installicons-3 "install.jpg")
  276. (set #iconchoice 4)
  277.  
  278. (if (>= (/ @installer-version 65536) 44)
  279.   (showmedia 'installpic-3' (tackon "pictures" #installicons-3) 'upper_right' 'none' 0)
  280. )
  281.  
  282.  
  283. (if (exists "env:mui/AMITRADECENTER.1.cfg")
  284.   (set #isatc 1)
  285.   (set #isatc 0)
  286. )
  287.  
  288. (if (exists ".config")
  289.   (set #update 0)
  290.   (set #update 1)
  291. )
  292.  
  293.  
  294. (if (= #update 0)
  295.   (
  296.     (set #choice1 "Install ATC")
  297.     (set #choice2 "Update ATC")
  298.  
  299.       (set #inchoice
  300.         (askchoice
  301.           (if (= #isatc 1)
  302.             (
  303.               (prompt #detect)
  304.               (help #detect)
  305.             )
  306.             (
  307.               (prompt #installchoice)
  308.               (help #inst_help)
  309.             )
  310.           )
  311.           (choices #choice1 #choice2)
  312.           (default #isatc)
  313.         )
  314.       )
  315.  
  316.       (if (= #inchoice 0)
  317.         (
  318.           (set destpath
  319.             (askdir
  320.               (prompt #askdir)
  321.               (help #asl_help)
  322.               (default "work:")
  323.             )
  324.           )
  325.  
  326.           (set @default-dest
  327.             (tackon destpath "AmiTradeCenter")
  328.           )
  329.  
  330.           (set result
  331.             (makedir @default-dest
  332.               (prompt #makedir_help)
  333.               (safe)
  334.             )
  335.           )
  336.  
  337.           (complete 5)
  338.  
  339.           (set #catchoice
  340.             (askchoice
  341.               (prompt #cat_help)
  342.               (help #cat_help)
  343.               (choices #cat1 #cat2 #cat3 #cat4)
  344.                 (if (= #language "deutsch")
  345.                     (default 0)
  346.                   (
  347.                     (if (= #language "français")
  348.                         (default 1)
  349.                       (
  350.                         (if (= #language "svenska")
  351.                           (
  352.                             (default 2)
  353.                           )
  354.                           (
  355.                             (default 3)
  356.                           )
  357.                         )
  358.                       )
  359.                     )
  360.                   )
  361.                 )
  362.             )
  363.           )
  364.  
  365.           (set #glowicon
  366.             (askchoice
  367.               (prompt #whichicon)
  368.               (help #whichicon)
  369.               (choices #glow1 #glow2)
  370.               (default 0)
  371.             )
  372.           )
  373.  
  374.  
  375.  
  376.           (if (>= (/ @installer-version 65536) 44)
  377.             (
  378.               (showmedia 'installpic' (tackon "pictures" #installicons) 'upper_left' 'none' 0)
  379.               (showmedia 'installpic-2' (tackon "pictures" #installicons-2) 'upper_center' 'none' 0)
  380.  
  381.               (set #iconchoice
  382.                 (askchoice
  383.                   (prompt #yourchoice)
  384.                   (help #your_help)
  385.                   (choices #icon1 #icon2 #icon3 #icon4 #icon5 #icon6 #icon7 #icon8)
  386.                   (default 0)
  387.                 )
  388.               )
  389.             )
  390.           )
  391.  
  392.           (if (askbool
  393.             (prompt #NListCopy #NList_new #NList_text)
  394.             (help #NList_help)
  395.             (choices #NListCopy-1 #NListCopy-2)
  396.             (default 1)
  397.           )
  398.            (
  399.              (set result
  400.                (copyfiles
  401.                  (source (cat "mui/libs/mui/NListtree.mcc"))
  402.                  (dest "mui:libs/mui/")
  403.                  (newname (cat "NListtree.mcc"))
  404.                  (optional "nofail" "force" "askuser")
  405.                )
  406.              )
  407.            )
  408.          )
  409.  
  410.  
  411.           (set #profiles ".profiles")
  412.  
  413.           (set #profilter (tackon @default-dest #profiles))
  414.             (if (exists #profilter)
  415.               (set #pattern "~(#?profiles|#?config|#?install#?|#?mui#?|#?adtfilt#?|#?catalogs#?|#?pictures#?)")
  416.               (set #pattern "~(#?install#?|#?mui#?|#?catalogs#?|#?pictures#?)")
  417.             )
  418.  
  419.  
  420.           (set result
  421.             (copyfiles
  422.               (prompt #copyfiles)
  423.               (help #copy_help)
  424.               (source "")
  425.               (dest @default-dest)
  426.               (pattern #pattern)
  427.               (optional fail)
  428.               (safe)
  429.             )
  430.           )
  431.  
  432.           (complete 97)
  433.  
  434.           (if (= #catchoice 0)
  435.             (
  436.               (set #catdir (tackon @default-dest #cat))
  437.               (set #catdirlanguage (tackon @default-dest #catDE))
  438.  
  439.               (set result
  440.                 (makedir #catdir
  441.                   (prompt #makedir_help)
  442.                   (safe)
  443.                 )
  444.               )
  445.  
  446.               (set result
  447.                 (makedir #catdirlanguage
  448.                   (prompt #makedir_help)
  449.                   (safe)
  450.                 )
  451.               )
  452.  
  453.  
  454.               (set result
  455.                 (copyfiles
  456.                   (source (cat "catalogs/deutsch/"))
  457.                   (dest #catdirlanguage)
  458.                   (pattern "#?")
  459.                   (optional "nofail" "force" "askuser")
  460.                 )
  461.               )
  462.  
  463.             )
  464.           )     
  465.  
  466.           (if (= #catchoice 1)
  467.             (
  468.               (set #catdir (tackon @default-dest #cat))
  469.               (set #catdirlanguage (tackon @default-dest #catFR))
  470.  
  471.               (set result
  472.                 (makedir #catdir
  473.                   (prompt #makedir_help)
  474.                   (safe)
  475.                 )
  476.               )
  477.  
  478.               (set result
  479.                 (makedir #catdirlanguage
  480.                   (prompt #makedir_help)
  481.                   (safe)
  482.                 )
  483.               )
  484.  
  485.  
  486.               (set result
  487.                 (copyfiles
  488.                   (source (cat "catalogs/français/"))
  489.                   (dest #catdirlanguage)
  490.                   (pattern "#?")
  491.                   (optional "nofail" "force" "askuser")
  492.                 )
  493.               )
  494.  
  495.             )
  496.           )     
  497.  
  498.  
  499.           (if (= #catchoice 2)
  500.             (
  501.               (set #catdir (tackon @default-dest #cat))
  502.               (set #catdirlanguage (tackon @default-dest #catSW))
  503.  
  504.               (set result
  505.                 (makedir #catdir
  506.                   (prompt #makedir_help)
  507.                   (safe)
  508.                 )
  509.               )
  510.  
  511.               (set result
  512.                 (makedir #catdirlanguage
  513.                   (prompt #makedir_help)
  514.                   (safe)
  515.                 )
  516.               )
  517.  
  518.  
  519.               (set result
  520.                 (copyfiles
  521.                   (source (cat "catalogs/svenska/"))
  522.                   (dest #catdirlanguage)
  523.                   (pattern "#?")
  524.                   (optional "nofail" "force" "askuser")
  525.                 )
  526.               )
  527.  
  528.             )
  529.           )     
  530.  
  531.           (set #catdir (tackon @default-dest #cat))
  532.  
  533.           (set result
  534.             (makedir #catdir
  535.               (prompt #makedir_help)
  536.               (safe)
  537.             )
  538.           )
  539.  
  540.           (set result
  541.             (copyfiles
  542.               (source (cat "catalogs/"))
  543.               (dest #catdir)
  544.               (pattern "#?.cd")
  545.               (optional "nofail" "force" "askuser")
  546.             )
  547.           )
  548.  
  549.  
  550.           (if (>= (/ @installer-version 65536) 44)
  551.             (
  552.               (if (= #iconchoice 0)
  553.                 (if (= #glowicon 0)
  554.                   (
  555.                     (set result
  556.                       (copyfiles
  557.                         (source (cat "glowicons/AmiTradeCenter1.info"))
  558.                         (dest @default-dest)
  559.                         (newname (cat "AmiTradeCenter.info"))
  560.                         (optional "nofail" "force" "askuser")
  561.                       )
  562.                     )
  563.                   )
  564.                   (
  565.                     (set result
  566.                       (copyfiles
  567.                         (source (cat "newicons/AmiTradeCenter1.info"))
  568.                         (dest @default-dest)
  569.                         (newname (cat "AmiTradeCenter.info"))
  570.                         (optional "nofail" "force" "askuser")
  571.                       )
  572.                     )
  573.                   )
  574.                 )
  575.               )
  576.  
  577.               (if (= #iconchoice 1)
  578.                 (if (= #glowicon 0)
  579.                   (
  580.                     (set result
  581.                       (copyfiles
  582.                         (source (cat "glowicons/AmiTradeCenter2.info"))
  583.                         (dest @default-dest)
  584.                         (newname (cat "AmiTradeCenter.info"))
  585.                         (optional "nofail" "force" "askuser")
  586.                       )
  587.                     )
  588.                   )
  589.                   (
  590.                     (set result
  591.                       (copyfiles
  592.                         (source (cat "newicons/AmiTradeCenter2.info"))
  593.                         (dest @default-dest)
  594.                         (newname (cat "AmiTradeCenter.info"))
  595.                         (optional "nofail" "force" "askuser")
  596.                       )
  597.                     )
  598.                   )
  599.                 )
  600.               )
  601.  
  602.               (if (= #iconchoice 2)
  603.                 (if (= #glowicon 0)
  604.                   (
  605.                     (set result
  606.                       (copyfiles
  607.                         (source (cat "glowicons/AmiTradeCenter3.info"))
  608.                         (dest @default-dest)
  609.                         (newname (cat "AmiTradeCenter.info"))
  610.                         (optional "nofail" "force" "askuser")
  611.                       )
  612.                     )
  613.                   )
  614.                   (
  615.                     (set result
  616.                       (copyfiles
  617.                         (source (cat "newicons/AmiTradeCenter3.info"))
  618.                         (dest @default-dest)
  619.                         (newname (cat "AmiTradeCenter.info"))
  620.                         (optional "nofail" "force" "askuser")
  621.                       )
  622.                     )
  623.                   )
  624.                 )
  625.               )
  626.  
  627.               (if (= #iconchoice 3)
  628.                 (if (= #glowicon 0)
  629.                   (
  630.                     (set result
  631.                       (copyfiles
  632.                         (source (cat "glowicons/AmiTradeCenter4.info"))
  633.                         (dest @default-dest)
  634.                         (newname (cat "AmiTradeCenter.info"))
  635.                         (optional "nofail" "force" "askuser")
  636.                       )
  637.                     )
  638.                   )
  639.                   (
  640.                     (set result
  641.                       (copyfiles
  642.                         (source (cat "newicons/AmiTradeCenter4.info"))
  643.                         (dest @default-dest)
  644.                         (newname (cat "AmiTradeCenter.info"))
  645.                         (optional "nofail" "force" "askuser")
  646.                       )
  647.                     )
  648.                   )
  649.                 )
  650.               )
  651.  
  652.               (if (= #iconchoice 4)
  653.                 (if (= #glowicon 0)
  654.                   (
  655.                     (set result
  656.                       (copyfiles
  657.                         (source (cat "glowicons/AmiTradeCenterSmall1.info"))
  658.                         (dest @default-dest)
  659.                         (newname (cat "AmiTradeCenter.info"))
  660.                         (optional "nofail" "force" "askuser")
  661.                       )
  662.                     )
  663.                   )
  664.                   (
  665.                     (set result
  666.                       (copyfiles
  667.                         (source (cat "newicons/AmiTradeCenterSmall1.info"))
  668.                         (dest @default-dest)
  669.                         (newname (cat "AmiTradeCenter.info"))
  670.                         (optional "nofail" "force" "askuser")
  671.                       )
  672.                     )
  673.                   )
  674.                 )
  675.               )
  676.  
  677.               (if (= #iconchoice 5)
  678.                 (if (= #glowicon 0)
  679.                   (
  680.                     (set result
  681.                       (copyfiles
  682.                         (source (cat "glowicons/AmiTradeCenterSmall2.info"))
  683.                         (dest @default-dest)
  684.                         (newname (cat "AmiTradeCenter.info"))
  685.                         (optional "nofail" "force" "askuser")
  686.                       )
  687.                     )
  688.                   )
  689.                   (
  690.                     (set result
  691.                       (copyfiles
  692.                         (source (cat "newicons/AmiTradeCenterSmall2.info"))
  693.                         (dest @default-dest)
  694.                         (newname (cat "AmiTradeCenter.info"))
  695.                         (optional "nofail" "force" "askuser")
  696.                       )
  697.                     )
  698.                   )
  699.                 )
  700.               )
  701.  
  702.               (if (= #iconchoice 6)
  703.                 (if (= #glowicon 0)
  704.                   (
  705.                     (set result
  706.                       (copyfiles
  707.                         (source (cat "glowicons/AmiTradeCenterSmall3.info"))
  708.                         (dest @default-dest)
  709.                         (newname (cat "AmiTradeCenter.info"))
  710.                         (optional "nofail" "force" "askuser")
  711.                       )
  712.                     )
  713.                   )
  714.                   (
  715.                     (set result
  716.                       (copyfiles
  717.                         (source (cat "newicons/AmiTradeCenterSmall3.info"))
  718.                         (dest @default-dest)
  719.                         (newname (cat "AmiTradeCenter.info"))
  720.                         (optional "nofail" "force" "askuser")
  721.                       )
  722.                     )
  723.                   )
  724.                 )
  725.               )
  726.  
  727.               (if (= #iconchoice 7)
  728.                 (if (= #glowicon 0)
  729.                   (
  730.                     (set result
  731.                       (copyfiles
  732.                         (source (cat "glowicons/AmiTradeCenterSmall4.info"))
  733.                         (dest @default-dest)
  734.                         (newname (cat "AmiTradeCenter.info"))
  735.                         (optional "nofail" "force" "askuser")
  736.                       )
  737.                     )
  738.                   )
  739.                   (
  740.                     (set result
  741.                       (copyfiles
  742.                         (source (cat "newicons/AmiTradeCenterSmall4.info"))
  743.                         (dest @default-dest)
  744.                         (newname (cat "AmiTradeCenter.info"))
  745.                         (optional "nofail" "force" "askuser")
  746.                       )
  747.                     )
  748.                   )
  749.                 )
  750.               )
  751.             )
  752.            ( ; old installer will install this icon silently
  753.              (if (= #glowicon 0)
  754.                (
  755.                  (copyfiles
  756.                    (source (cat "glowicons/AmiTradeCenter1.info"))
  757.                    (dest @default-dest)
  758.                    (newname (cat "AmiTradeCenter.info"))
  759.                    (optional "nofail" "force" "askuser")
  760.                  )
  761.                  (copyfiles
  762.                    (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  763.                    (dest @default-dest)
  764.                    (newname (cat "Docs.info"))
  765.                    (optional "nofail" "force" "askuser")
  766.                  )
  767.                  (copyfiles
  768.                    (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  769.                    (dest @default-dest)
  770.                    (newname (cat "GlowIcons.info"))
  771.                    (optional "nofail" "force" "askuser")
  772.                  )
  773.                  (copyfiles
  774.                    (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  775.                    (dest @default-dest)
  776.                    (newname (cat "NewIcons.info"))
  777.                    (optional "nofail" "force" "askuser")
  778.                  )
  779.                )
  780.                (
  781.                  (copyfiles
  782.                    (source (cat "newicons/AmiTradeCenter1.info"))
  783.                    (dest @default-dest)
  784.                    (newname (cat "AmiTradeCenter.info"))
  785.                    (optional "nofail" "force" "askuser")
  786.                  )
  787.                  (copyfiles
  788.                    (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  789.                    (dest @default-dest)
  790.                    (newname (cat "Docs.info"))
  791.                    (optional "nofail" "force" "askuser")
  792.                  )
  793.                  (copyfiles
  794.                    (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  795.                    (dest @default-dest)
  796.                    (newname (cat "GlowIcons.info"))
  797.                    (optional "nofail" "force" "askuser")
  798.                  )
  799.                  (copyfiles
  800.                    (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  801.                    (dest @default-dest)
  802.                    (newname (cat "NewIcons.info"))
  803.                    (optional "nofail" "force" "askuser")
  804.                  )
  805.                )
  806.              )
  807.            )
  808.          ) ; end if installer >=44
  809.  
  810.            (if (= #glowicon 0)
  811.              (
  812.                (copyfiles
  813.                  (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  814.                  (dest destpath)
  815.                  (newname (cat "AmiTradeCenter.info"))
  816.                  (optional "nofail" "force" "askuser")
  817.                )
  818.              )
  819.              (
  820.  
  821.                (copyfiles
  822.                  (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  823.                  (dest destpath)
  824.                  (newname (cat "AmiTradeCenter.info"))
  825.                  (optional "nofail" "force" "askuser")
  826.                )
  827.              )
  828.            )
  829.  
  830.  
  831.            (if (= #glowicon 0)
  832.              (
  833.                (copyfiles
  834.                  (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  835.                  (dest @default-dest)
  836.                  (newname (cat "Docs.info"))
  837.                  (optional "nofail" "force" "askuser")
  838.                )
  839.  
  840.                (copyfiles
  841.                  (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  842.                  (dest @default-dest)
  843.                  (newname (cat "GlowIcons.info"))
  844.                  (optional "nofail" "force" "askuser")
  845.                )
  846.  
  847.                (copyfiles
  848.                  (source (cat "glowicons/AmiTradeCenter_Drawer.info"))
  849.                  (dest @default-dest)
  850.                  (newname (cat "NewIcons.info"))
  851.                  (optional "nofail" "force" "askuser")
  852.                )
  853.              )
  854.              (
  855.                (copyfiles
  856.                  (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  857.                  (dest @default-dest)
  858.                  (newname (cat "Docs.info"))
  859.                  (optional "nofail" "force" "askuser")
  860.                )
  861.  
  862.                (copyfiles
  863.                  (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  864.                  (dest @default-dest)
  865.                  (newname (cat "GlowIcons.info"))
  866.                  (optional "nofail" "force" "askuser")
  867.                )
  868.  
  869.                (copyfiles
  870.                  (source (cat "newicons/AmiTradeCenter_Drawer.info"))
  871.                  (dest @default-dest)
  872.                  (newname (cat "NewIcons.info"))
  873.                  (optional "nofail" "force" "askuser")
  874.                )
  875.              )
  876.            )
  877.  
  878.       )
  879.       ( ; update
  880.  
  881.         (set destpath
  882.           (askdir
  883.             (prompt #askdir1)
  884.             (help #asl_help)
  885.             (default "work:")
  886.           )
  887.         )
  888.  
  889.         (set @default-dest
  890.           (tackon destpath "")
  891.         )
  892.  
  893.  
  894.         (set #filter ".adtfilter")
  895.  
  896.         (set #adtfilter
  897.            (tackon @default-dest #filter)
  898.         )
  899.  
  900.         (if (exists #adtfilter)
  901.           (set #pattern "~(#?profiles|#?config|#?icon#?|#?Center.info|#?mui#?|#?install#?|.adtfilt#?|#?catalogs#?|#?pictures#?)")
  902.           (set #pattern "~(#?profiles|#?config|#?icon#?|#?Center.info|#?mui#?|#?install#?|#?catalogs#?|#?pictures#?)")
  903.         )
  904.  
  905.           (set #catchoice
  906.             (askchoice
  907.               (prompt #cat_help)
  908.               (help #cat_help)
  909.               (choices #cat1 #cat2 #cat3 #cat4)
  910.                 (if (= #language "deutsch")
  911.                     (default 0)
  912.                   (
  913.                     (if (= #language "français")
  914.                         (default 1)
  915.                       (
  916.                         (if (= #language "svenska")
  917.                           (
  918.                             (default 2)
  919.                           )
  920.                           (
  921.                             (default 3)
  922.                           )
  923.                         )
  924.                       )
  925.                     )
  926.                   )
  927.                 )
  928.             )
  929.           )
  930.  
  931.  
  932.         (set result
  933.           (copyfiles
  934.             (prompt #copyfiles)
  935.             (help #copy_help)
  936.             (source "")
  937.             (dest destpath)
  938.             (pattern #pattern)
  939.             (optional fail)
  940.             (safe)
  941.           )
  942.         )
  943.  
  944.  
  945.         (if (= #catchoice 0)
  946.           (
  947.             (set #catdir (tackon @default-dest #cat))
  948.             (set #catdirlanguage (tackon @default-dest #catDE))
  949.  
  950.             (set result
  951.               (makedir #catdir
  952.                 (prompt #makedir_help)
  953.                 (safe)
  954.               )
  955.             )
  956.  
  957.             (set result
  958.               (makedir #catdirlanguage
  959.                 (prompt #makedir_help)
  960.                 (safe)
  961.               )
  962.             )
  963.  
  964.  
  965.             (set result
  966.               (copyfiles
  967.                 (source (cat "catalogs/deutsch/"))
  968.                 (dest #catdirlanguage)
  969.                 (pattern "#?")
  970.                 (optional "nofail" "force" "askuser")
  971.               )
  972.             )
  973.  
  974.           )
  975.         )     
  976.  
  977.  
  978.           (if (= #catchoice 1)
  979.             (
  980.               (set #catdir (tackon @default-dest #cat))
  981.               (set #catdirlanguage (tackon @default-dest #catFR))
  982.  
  983.               (set result
  984.                 (makedir #catdir
  985.                   (prompt #makedir_help)
  986.                   (safe)
  987.                 )
  988.               )
  989.  
  990.               (set result
  991.                 (makedir #catdirlanguage
  992.                   (prompt #makedir_help)
  993.                   (safe)
  994.                 )
  995.               )
  996.  
  997.  
  998.               (set result
  999.                 (copyfiles
  1000.                   (source (cat "catalogs/français/"))
  1001.                   (dest #catdirlanguage)
  1002.                   (pattern "#?")
  1003.                   (optional "nofail" "force" "askuser")
  1004.                 )
  1005.               )
  1006.  
  1007.             )
  1008.           )     
  1009.  
  1010.  
  1011.           (if (= #catchoice 2)
  1012.             (
  1013.               (set #catdir (tackon @default-dest #cat))
  1014.               (set #catdirlanguage (tackon @default-dest #catSW))
  1015.  
  1016.               (set result
  1017.                 (makedir #catdir
  1018.                   (prompt #makedir_help)
  1019.                   (safe)
  1020.                 )
  1021.               )
  1022.  
  1023.               (set result
  1024.                 (makedir #catdirlanguage
  1025.                   (prompt #makedir_help)
  1026.                   (safe)
  1027.                 )
  1028.               )
  1029.  
  1030.  
  1031.               (set result
  1032.                 (copyfiles
  1033.                   (source (cat "catalogs/svenska/"))
  1034.                   (dest #catdirlanguage)
  1035.                   (pattern "#?")
  1036.                   (optional "nofail" "force" "askuser")
  1037.                 )
  1038.               )
  1039.  
  1040.             )
  1041.           )     
  1042.  
  1043.         (set #catdir (tackon @default-dest #cat))
  1044.  
  1045.         (set result
  1046.           (copyfiles
  1047.             (source (cat "catalogs/"))
  1048.             (dest #catdir)
  1049.             (pattern "#?.cd")
  1050.             (optional "nofail" "force" "askuser")
  1051.           )
  1052.         )
  1053.  
  1054.       )
  1055.     )
  1056.   )
  1057. )
  1058.  
  1059. (if (= #update 1)
  1060.   (
  1061.     (set destpath
  1062.       (askdir
  1063.         (prompt #askdir1)
  1064.         (help #asl_help)
  1065.         (default "work:")
  1066.       )
  1067.     )
  1068.  
  1069.     (set @default-dest
  1070.       (tackon destpath "")
  1071.     )
  1072.  
  1073.     (set #filter ".adtfilter")
  1074.  
  1075.     (set #adtfilter
  1076.        (tackon @default-dest #filter)
  1077.     )
  1078.  
  1079.     (if (exists #adtfilter)
  1080.       (set #pattern "~(#?profiles|#?config|#?icon#?|#?Center.info|#?mui#?|#?install#?|.adtfilt#?|#?catalogs#?|#?pictures#?)")
  1081.       (set #pattern "~(#?profiles|#?config|#?icon#?|#?Center.info|#?mui#?|#?install#?|#?catalogs#?|#?pictures#?)")
  1082.     )
  1083.  
  1084.  
  1085.     (set #catchoice
  1086.       (askchoice
  1087.         (prompt #cat_help)
  1088.         (help #cat_help)
  1089.         (choices #cat1 #cat2 #cat3 #cat4)
  1090.           (if (= #language "deutsch")
  1091.               (default 0)
  1092.             (
  1093.               (if (= #language "français")
  1094.                   (default 1)
  1095.                 (
  1096.                   (if (= #language "svenska")
  1097.                     (
  1098.                       (default 2)
  1099.                     )
  1100.                     (
  1101.                       (default 3)
  1102.                     )
  1103.                   )
  1104.                 )
  1105.               )
  1106.             )
  1107.           )
  1108.       )
  1109.     )
  1110.  
  1111.  
  1112.     (set result
  1113.       (copyfiles
  1114.         (prompt #copyfiles)
  1115.         (help #copy_help)
  1116.         (source "")
  1117.         (dest destpath)
  1118.         (pattern #pattern)
  1119.         (optional fail)
  1120.         (safe)
  1121.       )
  1122.     )
  1123.  
  1124.  
  1125.     (complete 97)
  1126.  
  1127.  
  1128.  
  1129.     (if (= #catchoice 0)
  1130.       (
  1131.         (set #catdir (tackon @default-dest #cat))
  1132.         (set #catdirlanguage (tackon @default-dest #catDE))
  1133.  
  1134.         (set result
  1135.           (makedir #catdir
  1136.             (prompt #makedir_help)
  1137.             (safe)
  1138.           )
  1139.         )
  1140.  
  1141.         (set result
  1142.           (makedir #catdirlanguage
  1143.             (prompt #makedir_help)
  1144.             (safe)
  1145.           )
  1146.         )
  1147.  
  1148.  
  1149.         (set result
  1150.           (copyfiles
  1151.             (source (cat "catalogs/deutsch/"))
  1152.             (dest #catdirlanguage)
  1153.             (pattern "#?")
  1154.             (optional "nofail" "force" "askuser")
  1155.           )
  1156.         )
  1157.  
  1158.       )
  1159.     )     
  1160.  
  1161.  
  1162.     (if (= #catchoice 1)
  1163.       (
  1164.         (set #catdir (tackon @default-dest #cat))
  1165.         (set #catdirlanguage (tackon @default-dest #catFR))
  1166.  
  1167.         (set result
  1168.           (makedir #catdir
  1169.             (prompt #makedir_help)
  1170.             (safe)
  1171.           )
  1172.         )
  1173.  
  1174.         (set result
  1175.           (makedir #catdirlanguage
  1176.             (prompt #makedir_help)
  1177.             (safe)
  1178.           )
  1179.         )
  1180.  
  1181.  
  1182.         (set result
  1183.           (copyfiles
  1184.             (source (cat "catalogs/français/"))
  1185.             (dest #catdirlanguage)
  1186.             (pattern "#?")
  1187.             (optional "nofail" "force" "askuser")
  1188.           )
  1189.         )
  1190.  
  1191.       )
  1192.     )     
  1193.  
  1194.  
  1195.     (if (= #catchoice 2)
  1196.       (
  1197.         (set #catdir (tackon @default-dest #cat))
  1198.         (set #catdirlanguage (tackon @default-dest #catSW))
  1199.  
  1200.         (set result
  1201.           (makedir #catdir
  1202.             (prompt #makedir_help)
  1203.             (safe)
  1204.           )
  1205.         )
  1206.  
  1207.         (set result
  1208.           (makedir #catdirlanguage
  1209.             (prompt #makedir_help)
  1210.             (safe)
  1211.           )
  1212.         )
  1213.  
  1214.  
  1215.         (set result
  1216.           (copyfiles
  1217.             (source (cat "catalogs/svenska/"))
  1218.             (dest #catdirlanguage)
  1219.             (pattern "#?")
  1220.             (optional "nofail" "force" "askuser")
  1221.           )
  1222.         )
  1223.  
  1224.       )
  1225.     )     
  1226.  
  1227.     (set #catdir (tackon @default-dest #cat))
  1228.  
  1229.     (set result
  1230.       (copyfiles
  1231.         (source (cat "catalogs/"))
  1232.         (dest #catdir)
  1233.         (pattern "#?.cd")
  1234.         (optional "nofail" "force" "askuser")
  1235.       )
  1236.     )
  1237.  
  1238.   )
  1239. )
  1240.  
  1241.  
  1242. (complete 100)
  1243.  
  1244. (if (= #update 0)
  1245.   (if (>= (/ @installer-version 65536) 44)
  1246.     (
  1247.       (closemedia installpic)
  1248.       (closemedia installpic-2)
  1249.  
  1250.  
  1251.       (set #guidelanguage
  1252.         (askchoice
  1253.           (prompt #showguide)
  1254.           (help #guide_help)
  1255.           (choices #cat1 #cat4 #none)
  1256.             (if (= #language "deutsch")
  1257.               (default 0)
  1258.               (default 1)
  1259.             )
  1260.         )
  1261.       )
  1262.  
  1263.  
  1264.       (if (<> #guidelanguage 2)
  1265.         (
  1266.           (if (= #guidelanguage 0)
  1267.             (set #guideondisk (tackon @default-dest #guideD))
  1268.             (set #guideondisk (tackon @default-dest #guideE))
  1269.           )
  1270.          (showmedia 'media' #guideondisk 'upper_left' 'medium_large' 1 'wordwrap' 'panel')
  1271.         )
  1272.       )
  1273.     
  1274.  
  1275.       (set wbobj (tackon destpath @default-dest))
  1276.       (openwbobject wbobj)
  1277.     )
  1278.   ) 
  1279. )
  1280. ; hey, the pain is over... pardy on garth!
  1281.